home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 2001copy.txt < prev    next >
Encoding:
Text File  |  1996-03-07  |  1.3 KB  |  38 lines
  1. If newtitle = TRUE then
  2. Eval("EraseDisplay(@" ^ title number ^ ")")
  3. Title number = "2001"
  4. Company = "Electronic Arts"
  5. title = "Triple Play Baseball 96"
  6. Price = 49.99
  7. Demo = false
  8. Button1 = false
  9. Button2 = false
  10. Button3 = false
  11. Button4 = false
  12. system = "Genesis"
  13. Title Description = "Rich in authentic baseball strategy and detail. Puts total control into the
  14. hands of the customer. Slide head first into second, bowl over the catcher at home, or send in the
  15. sign for the hit and run. Battery backed-up season and player statistics, plus a create-your-own
  16. player feature. Four way game play."
  17. -----------------------------------
  18. dline = ""
  19. counter = 0
  20. repeat while dline <> title number
  21. counter = counter + 1
  22. dline = GetWord(1, GetLine(titl,counter))
  23. test(dline = title number, LineInTitle = counter)
  24. end repeat
  25. starttitle = LineInTitle
  26. num of titles shown = 6
  27. endtitle = starttitle + num of titles shown - 1
  28. titles = ""
  29. title highlight = ""
  30. repeat with counter = starttitle to endtitle
  31. nextline = GetLine(titl, counter)
  32. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  33. title highlight = Test(title number = GetWord(1, nextline), titlehighlight ^ SubStr(nextline, 6,
  34. CharCount(nextline)) ^ Return, title highlight ^ Return)
  35. end repeat
  36. dpage = CurrentPageID
  37. newtitle = FALSE
  38. end if